%
O0006(PART LOOPER) 
G00G20G17G40G49G80G90
G91G28Z0 
M01
 
T#106M06 
T[#106+1]
/M08 
 
(CALCULATE PROGRAM NUMBER) 
(PRG.N)#119=[#112*1000]+#106 
 
(SET S.PT IF LOCKED) 
IF[#120EQ0]GOTO3(IF OFF, SKIP S.PT SET)
(CUR.PT)#103=#102(S.PT)
 
N3 
(SKIP TOOL OP IF S.OP LOCKED)
IF[#121EQ0]GOTO4(IF L.SOP OFF, SKIP) 
IF[#112EQ#107]GOTO4(IF S.OP = CUR.OP RUN TOOL) 
#103=#101+1(CUR.PT = PPP+1)
 
N4 
(LOOP TOOL FOR ALL PARTS)
 
(WHILE CUR.PT < PPP) 
WHILE[#103LE#101]DO1 
 
M98P0004(SET G54 XYZB TO CURRENT PART LOCATION)
M98P0005(NDEX B IF NEEDED) 
M98P#119(RUN TOOL) 
(CUR.PT)#103=#103+1(SET NEXT PART NUMBER)
 
END1 
(END TOOL OP ) 
M09
G91G28Z0M05
G28X0
M01
M99
%